Public Class frmUI

    Private Sub btnHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHide.Click
        Me.Hide()
    End Sub

    Private Sub frmUI_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Me.lblLastCheckedInTime.Text = frmMain.lastCheckInTime
    End Sub

    Private Sub frmUI_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.Hide()
    End Sub
End Class